home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Keymap.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-16  |  880 b   |  58 lines
  1. Unit Keymap;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tKeyMapResource = Record
  8.           kr_Node: tNode;
  9.           kr_List: tList;
  10.         End;
  11.  
  12.   tKeyMap = Record
  13.           km_LoKeyMapTypes: pShortInt;
  14.           km_LoKeyMap: pLongInt;
  15.           km_LoCapsable: pShortInt;
  16.           km_LoRepeatable: pShortInt;
  17.           km_HiKeyMapTypes: pShortInt;
  18.           km_HiKeyMap: pLongInt;
  19.           km_HiCapsable: pShortInt;
  20.           km_HiRepeatable: pShortInt;
  21.         End;
  22.  
  23.   tKeyMapNode = Record
  24.           kn_Node: tNode;
  25.           kn_KeyMap: tKeyMap;
  26.         End;
  27.  
  28.  
  29.  
  30. Const
  31.   KCB_ALT = $1;
  32.   KCF_ALT = $2;
  33.   DP_2DINDEXMASK = $F;
  34.   DPB_MOD = $0;
  35.   DPF_MOD = $1;
  36.   KCB_NOP = $7;
  37.   DP_2DFACSHIFT = $4;
  38.   KCF_NOP = $80;
  39.   KCB_CONTROL = $2;
  40.   KCF_CONTROL = $4;
  41.   KC_VANILLA = $7;
  42.   KCB_STRING = $6;
  43.   KCB_DEAD = $5;
  44.   KCF_STRING = $40;
  45.   KCF_DEAD = $20;
  46.   KCB_DOWNUP = $3;
  47.   DPB_DEAD = $3;
  48.   KCF_DOWNUP = $8;
  49.   DPF_DEAD = $8;
  50.   KCB_SHIFT = $0;
  51.   KCF_SHIFT = $1;
  52.   KC_NOQUAL = $0;
  53.  
  54.  
  55.  
  56.  
  57. End.
  58.